(ange-ftp-file-name-completion): Use ange-ftp-this-dir instead of

literal "/" when calling real completion function.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 1deb9afdcfa57ea9e165ceec363c539a49a4def0..927bb86c3f333412dbfc3c32853c6047b7e82079 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3821,7 +3821,8 @@ system TYPE.")
           file
           (nconc (ange-ftp-generate-root-prefixes)
                  (mapcar 'list
-                         (ange-ftp-real-file-name-all-completions file "/"))))
+                         (ange-ftp-real-file-name-all-completions
+                          file ange-ftp-this-dir))))
        (ange-ftp-real-file-name-completion file ange-ftp-this-dir)))))